﻿#Region "Using"

#End Region

Imports MICROFORMA.BEL
Imports MICROFORMA.DAL

Public Class DatosExternosBL
    Private datosExternosDA As DatosExternosDA = Nothing

    Public Function Add(ByVal datosExternosBE As DatosExternosBE) As String
        Return datosExternosDA.Add(datosExternosBE)
    End Function

    Public Function Edit(ByVal datosExternosBE As DatosExternosBE) As String
        Return datosExternosDA.Edit(datosExternosBE)
    End Function

    Public Function Delete(ByVal idDatosExternos As Int16) As String
        Return datosExternosDA.Delete(idDatosExternos)
    End Function

    Public Function getList() As DataTable
        Return datosExternosDA.List
    End Function


    Public Sub New()
        datosExternosDA = New DatosExternosDA
    End Sub
End Class
